home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ Startmenu Speed.xpl < prev    next >
Text File  |  2001-04-14  |  1KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Options"
  5. "NAME"="Menu Reaction Speed"
  6. "VERSION"="1.72"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Delay (ms)"
  9. "DESCRIPTION 1"="Use this plug-in to change the reaction time of the Start menu when you select an item."
  10. "DESCRIPTION 2"="The default value for this is 400 ms, the longest time is 65535 ms (which means: wait for click) and the shortest possible value is 0 ms."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15. "COMMENT 2"="Thanks to Donald R. Shroyer [shroyertour@charter.net] for the "wait for click" tip!"
  16.  
  17.  
  18. Sub Plugin_Initialize 
  19.  i=RegReadValue("HKCU\Control Panel\Desktop\MenuShowDelay")
  20.  SetUIElement 1,i
  21. End Sub
  22.  
  23. Sub Plugin_CheckData(ElementIndex)
  24. End Sub
  25.  
  26. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  27.  i=GetUIElement(1)
  28.  if IsNumeric(i) then
  29.   if i<0 or i>65535 then
  30.      Call MsgError("The value you have entered is not valid.")
  31.   else
  32.      Call RegWriteValue("HKCU\Control Panel\Desktop\MenuShowDelay",i,1)
  33.      Call Restart()
  34.   end if
  35.  else
  36.     Call MsgError("Please enter a valid numeric value.")
  37.  end if
  38.   
  39.  
  40.  
  41.  
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.